home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / News Stacks / Jan '90AMUG News™.cpt / Jan '90AMUG News™ / card_17574.txt < prev    next >
Text File  |  1990-01-21  |  1KB  |  37 lines
  1. -- card: 17574 from stack: in
  2. -- bmap block id: 17791
  3. -- flags: 0000
  4. -- background id: 2135
  5. -- name: Diamond
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=11 top=60 right=285 bottom=508
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 2
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part contents for background part 1
  23. ----- text -----
  24. 24
  25.  
  26. -- part contents for card part 1
  27. ----- text -----
  28. The solution is to override TWindow's draw method as is shown in Example 4.  The keyword Override (placed immediately after the procedure to be overridden) tells the compiler that we will be supplying a new draw method to be used in place of the one inherited from TWindow.  All other behavior will be the same as TWindow.
  29. Example 4:  A new window class declaration based on the superclass TWindow.
  30. TNewWindow = object(TWindow)
  31. procedure Draw;
  32. Override;
  33. end;
  34. Winding up and winding down.
  35. Well, that's about as big a byte of the object elephant as we can cover in this issue (translated:  I ran out of time).  Next time we are going to develop some important object classes that we will be using later on.  In particular, we are going to develop a window class, a menu class, an event class and finally an application class (which incorporates all the other classes).  As a result there will be plenty of source code to ponder and play with.
  36. Abadee... Abadee... That's all for this one folks!
  37.